home *** CD-ROM | disk | FTP | other *** search
/ Carousel / CAROUSEL.cdr / mactosh / hc / news_cli.sit / Clipping 1.0a5 / background_4760.txt < prev    next >
Text File  |  1988-11-14  |  4KB  |  192 lines
  1. -- background: 4760 from stack: in.0a5
  2. -- bmap block id: 4949
  3. -- flags: 4000
  4. -- background id: 0
  5. -- name: 
  6. ----- HyperTalk script -----
  7. on openBackground
  8.   hide menubar
  9.   push recent card
  10. end openBackground
  11.  
  12.  
  13. -- part 4 (field)
  14. -- low flags: 00
  15. -- high flags: 0007
  16. -- rect: left=14 top=33 right=270 bottom=488
  17. -- title width / last selected line: 0
  18. -- icon id / first selected line: 0 / 0
  19. -- text alignment: 0
  20. -- font id: 3
  21. -- text size: 9
  22. -- style flags: 0
  23. -- line height: 12
  24. -- part name: Clipping
  25.  
  26.  
  27. -- part 12 (button)
  28. -- low flags: 00
  29. -- high flags: 0000
  30. -- rect: left=385 top=271 right=288 bottom=412
  31. -- title width / last selected line: 0
  32. -- icon id / first selected line: 20689 / 20689
  33. -- text alignment: 1
  34. -- font id: 0
  35. -- text size: 12
  36. -- style flags: 0
  37. -- line height: 16
  38. -- part name: Home
  39. ----- HyperTalk script -----
  40. on mouseUp
  41.   visual effect iris open
  42.   go Home
  43. end mouseUp
  44.  
  45.  
  46.  
  47. -- part 14 (button)
  48. -- low flags: 00
  49. -- high flags: A000
  50. -- rect: left=14 top=272 right=288 bottom=68
  51. -- title width / last selected line: 0
  52. -- icon id / first selected line: 0 / 0
  53. -- text alignment: 1
  54. -- font id: 0
  55. -- text size: 12
  56. -- style flags: 0
  57. -- line height: 16
  58. -- part name: Clear
  59. ----- HyperTalk script -----
  60. on mouseUp
  61.   global clippingStr
  62.   answer "Clear your clippings?:" with "Clear" or "Cancel"
  63.   if it = "Cancel" then exit mouseUp
  64.   put empty into clippingStr
  65.   put empty into field clipping
  66. end mouseUp
  67.  
  68.  
  69.  
  70. -- part 15 (button)
  71. -- low flags: 00
  72. -- high flags: A000
  73. -- rect: left=71 top=272 right=288 bottom=125
  74. -- title width / last selected line: 0
  75. -- icon id / first selected line: 0 / 0
  76. -- text alignment: 1
  77. -- font id: 0
  78. -- text size: 12
  79. -- style flags: 0
  80. -- line height: 16
  81. -- part name: Text
  82. ----- HyperTalk script -----
  83. on mouseUp
  84.   global clippingStr
  85.   put field clipping into clippingStr
  86.   ask "Filename for output"
  87.   put ":" & it into fileStr
  88.   open file fileStr
  89.   write clippingStr to file fileStr
  90.   close file fileStr
  91. end mouseUp
  92.  
  93.  
  94.  
  95. -- part 16 (button)
  96. -- low flags: 00
  97. -- high flags: 0000
  98. -- rect: left=466 top=271 right=288 bottom=494
  99. -- title width / last selected line: 0
  100. -- icon id / first selected line: 6720 / 6720
  101. -- text alignment: 1
  102. -- font id: 0
  103. -- text size: 12
  104. -- style flags: 0
  105. -- line height: 16
  106. -- part name: Return
  107. ----- HyperTalk script -----
  108. on mouseUp
  109.   visual effect iris close
  110.   pop card
  111. end mouseUp
  112.  
  113.  
  114.  
  115. -- part 17 (button)
  116. -- low flags: 00
  117. -- high flags: 0000
  118. -- rect: left=411 top=271 right=288 bottom=439
  119. -- title width / last selected line: 0
  120. -- icon id / first selected line: 15420 / 15420
  121. -- text alignment: 1
  122. -- font id: 0
  123. -- text size: 12
  124. -- style flags: 0
  125. -- line height: 16
  126. -- part name: Prev
  127. ----- HyperTalk script -----
  128. on mouseUp
  129.   visual effect wipe right
  130.   go to previous card
  131. end mouseUp
  132.  
  133.  
  134.  
  135. -- part 18 (button)
  136. -- low flags: 00
  137. -- high flags: 0000
  138. -- rect: left=440 top=271 right=288 bottom=464
  139. -- title width / last selected line: 0
  140. -- icon id / first selected line: 16560 / 16560
  141. -- text alignment: 1
  142. -- font id: 0
  143. -- text size: 12
  144. -- style flags: 0
  145. -- line height: 16
  146. -- part name: Next
  147. ----- HyperTalk script -----
  148. on mouseUp
  149.   visual effect wipe left
  150.   go to next card
  151. end mouseUp
  152.  
  153.  
  154.  
  155. -- part 22 (button)
  156. -- low flags: 00
  157. -- high flags: 0000
  158. -- rect: left=136 top=271 right=293 bottom=162
  159. -- title width / last selected line: 0
  160. -- icon id / first selected line: 19678 / 19678
  161. -- text alignment: 1
  162. -- font id: 0
  163. -- text size: 12
  164. -- style flags: 0
  165. -- line height: 16
  166. -- part name: 
  167. ----- HyperTalk script -----
  168. on mouseUp
  169.   set visible of card field "about clipping" to true
  170. end mouseUp
  171.  
  172.  
  173.  
  174. -- part 23 (button)
  175. -- low flags: 00
  176. -- high flags: A001
  177. -- rect: left=341 top=272 right=288 bottom=380
  178. -- title width / last selected line: 0
  179. -- icon id / first selected line: 0 / 0
  180. -- text alignment: 1
  181. -- font id: 0
  182. -- text size: 12
  183. -- style flags: 0
  184. -- line height: 16
  185. -- part name: Zap
  186. ----- HyperTalk script -----
  187. on mouseUp
  188.   answer "Delete this card?:" with "Delete" or "Cancel"
  189.   domenu "delete card"
  190. end mouseUp
  191.  
  192.